PASCAL/SAIL 1.1    6-SEP-79    COMPILATION LIST PRODUCED ON 28-DEC-79  AT 09:01:40     PAGE  1

    1   C;

PASCAL/SAIL 1.1    6-SEP-79         COMPILATION LIST PRODUCED ON 28-DEC-79  AT 09:01:40     PAGE   2

    1   PROGRAM FIBONACCI;
    2   
    3   CONST   ZERO = 0;  ONE = 1;  LAST = 48;
    4   
    5   VAR     FIRST, SECOND, THIRD, COUNT : INTEGER;
    6   
    7   BEGIN
    8   
    9   FIRST := ZERO;
   10   SECOND := ONE;
   11   WRITELN (TTY,FIRST:14,SECOND:14);  BREAK;
   12   WRITELN (OUTPUT,FIRST:14,SECOND:14);
   13   COUNT := 2;
   14   WHILE COUNT < LAST DO
   15       BEGIN
   16       THIRD := FIRST + SECOND;
   17       FIRST := SECOND;
   18       SECOND := THIRD;
   19       WRITE (TTY,SECOND:14);
   20       WRITE (OUTPUT,SECOND:14);
   21       COUNT := COUNT + 1;
   22       IF COUNT MOD 4 = 0 THEN WRITELN (OUTPUT);
   23       END;
   24   END.

   0 ERROR(S) DETECTED

HIGHSEG:   0K +  101 WORD(S)
LOWSEG :   0K +  100 WORD(S)


RUNTIME: 00:00.130      ELAPSED: 00:00:00.8       569 CHARS